home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / conf / TITN.m4 < prev    next >
Text File  |  1997-07-22  |  528b  |  20 lines
  1. divert(-1)
  2. undefine(`len')
  3. #
  4. # FORTRAN function names are in upper case
  5. #
  6. define(`FUNCTION',`translit($1,abcdefghijklmnopqrstuvwxyz,ABCDEFGHIJKLMNOPQRSTUVWXYZ)')
  7. #
  8. # The Titan uses a special string descriptor to pass strings in FORTRAN.
  9. # The descriptor is passed by reference.
  10. #
  11. divert(0)
  12. typedef struct { char *ptr; int length; } FSD;
  13. divert(-1)
  14. define(`STRING_ARG',`$1_fsd')
  15. define(`STRING_ARG_DECL',`FSD * $1_fsd')
  16. define(`STRING_LEN',`($1_fsd)->length')
  17. define(`STRING_PTR',`($1_fsd)->ptr')
  18. define(`ARGS',`($1)')
  19. divert(0)
  20.